00100	C     	MAIN PROGRAM
00200		COMMON FREQ(3,0/50,50),FUNC(50),AMP(50),II(1),IJJ(3000)
00300	10	DO 30 I=1,3
00400		DO 30 J=0,50
00500		DO 30 K=1,50
00600	30	FREQ(I,J,K)=99999.0
00700		FREQ(1,50,1)=0.0
00750		TYPE 445
00775	445	FORMAT(' TYPE CAR,MOD,I1,I2'/)
00800		ACCEPT 100,C,XM,ZI1,ZI2
00810		TYPE 446
00820	446	FORMAT(' NOW GENERATE INDEX FUNCTION'/)
00900		CALL GEN(FUNC)
01000	100	FORMAT(4F)
01100		DO 300 IS=1,50
01200		CI=ZI1+(ZI2-ZI1)*FUNC(IS)
01300	300	CALL SIDEBANDS(C,XM,CI,IS)
01400		CALL DISP
01500		MAX=FREQ(1,50,1)
01600	C	PRINT101,(((FREQ(K,L,M),K=1,3),L=0,MAX),M=1,50)
01700	101	FORMAT(1H (3F/))
01800		GO TO 10
01900		END